unit uPesquisaProduto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uPesquisaPadrao, DB, IBODataset, ComCtrls, Grids, DBGrids,
  RXDBCtrl, StdCtrls, RXCtrls, ExtCtrls;

type
  TfPesquisaProduto = class(TfPesquisaPadrao)
    queryCODIGO: TIntegerField;
    queryDESCRICAO: TStringField;
    querySITUACAO: TStringField;
    queryVALOR_UNIT: TBCDField;
    queryCUSTO_UNIT: TBCDField;
    querySALDO: TBCDField;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fPesquisaProduto: TfPesquisaProduto;

implementation

{$R *.dfm}

procedure TfPesquisaProduto.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then
  begin
    query.close;
    query.SQL.Clear;
    query.SQL.Add('select * from Consulta_produto');
    query.SQL.Add('where consulta_produto.descricao like '''+Edit1.Text+'%''');
    query.SQL.Add('and consulta_produto.situacao = ''A'' ');
    query.SQL.Add('order by consulta_produto.descricao');
    query.Open;
  end;
end;

end.
